'                         Ambush at South Range
'
'
'  On America Online, it would greatly appreciated if you compose mail to
' Blood 225   . I took the time to correct most downloading errors, but there
'                     just might be a few. Enjoy!
'
'
'           For instructions, go to options...see keyboard keys.
'
'
'                             Blood 225
'
'                   I have no EMail, so just compose mail.
'          Please let me know what you think, or about any bugs.
'
' Directory change = line 34
'
'
'
DECLARE SUB KeyboardKeys ()
DECLARE SUB Initials ()
DECLARE SUB Logo ()
DECLARE SUB Center (ROW, TEXT$)
COMMON NOGUNS, LEVEL, GUN, BOSS, X, Y, AMMO, SNOT, CHARGE, FLAME, BEANS
COMMON FLAMETHROWER, BAKEDBEANS, CHARACTER, CIRC%, BIG%, HIT%, EXTRA%
COMMON KEYB, FIRE, BEAN, HITS, MISSES, SCORE, BOMB, OUCHYOU, OUCH
COMMON INI, SPD, INI1$, INI2$, INI3$, TOILET, ENEMIES, ARMORA, BOW, ARROW
COMMON NAMES, MISSLE, BAZOOKA, BZKA
DIM BIG%(25000)
DIM PISTOL%(3000)
CLEAR 500000000
SPD = 280
CHDIR "c:\ambush\ambush1"
Logo
SCREEN 13
GOSUB DRW
GOTO NXT
DRW:
I = 91
C = 100.5
DO UNTIL I = 4
LINE (3, I)-(316, I), C
I = I - 1
C = C - .1115
IF C = 73 THEN C = 73
LOOP
LINE (316, 162)-(3, 162), 29
LINE (3, 92)-(124, 92), 29
LINE (124, 92)-(124, 68), 29
LINE (124, 68)-(316, 68), 29
LINE (204, 162)-(173, 136), 29, B
LINE (189, 136)-(189, 162), 29
LINE (173, 151)-(204, 151), 29
LINE (238, 149)-(233, 147), 29
LINE (233, 147)-(229, 149), 29
LINE (229, 149)-(226, 151), 29
LINE (226, 151)-(225, 155), 29
LINE (225, 155)-(228, 160), 29
LINE (228, 160)-(244, 160), 29
LINE (244, 160)-(250, 162), 29
LINE (238, 149)-(245, 147), 29
LINE (245, 147)-(257, 151), 29
LINE (257, 151)-(265, 148), 29
LINE (265, 148)-(267, 149), 29
LINE (267, 149)-(270, 153), 29
LINE (270, 153)-(267, 158), 29
LINE (267, 158)-(264, 161), 29
LINE (261, 149)-(261, 133), 29
LINE (261, 133)-(234, 133), 29
LINE (234, 133)-(234, 148), 29
LINE (235, 143)-(260, 143), 29
LINE (261, 136)-(234, 136), 29
LINE (173, 162)-(170, 196), 29
LINE (204, 162)-(207, 196), 29
LINE (143, 161)-(148, 155), 29
LINE (148, 155)-(151, 149), 29
LINE (151, 149)-(147, 146), 29
LINE (147, 146)-(142, 145), 29
LINE (142, 145)-(136, 145), 29
LINE (136, 145)-(133, 147), 29
LINE (133, 147)-(129, 148), 29
LINE (129, 148)-(124, 144), 29
LINE (124, 144)-(116, 146), 29
LINE (116, 146)-(112, 149), 29
LINE (112, 149)-(111, 153), 29
LINE (111, 153)-(108, 159), 29
LINE (108, 159)-(110, 162), 29
LINE (86, 148)-(71, 138), 29, B
LINE (65, 138)-(50, 148), 29, B
LINE (25, 148)-(10, 138), 29, B
LINE (4, 138)-(4, 148), 29
LINE (4, 148)-(3, 148), 29
LINE (3, 138)-(3, 138), 29
PAINT (135, 154), 119, 29
PAINT (232, 154), 119, 29
LINE (141, 90)-(156, 80), 29, B
LINE (162, 80)-(177, 90), 29, B
LINE (202, 90)-(217, 80), 29, B
LINE (223, 80)-(238, 90), 29, B
LINE (263, 90)-(278, 80), 29, B
LINE (284, 80)-(299, 90), 29, B
LINE (316, 3)-(3, 196), 29, B
CIRCLE (214, 179), 7, 29, , , 1.2
LINE (213, 179)-(215, 147), 29, B
CIRCLE (214, 144), 2, 29, , , 1
LINE (217, 143)-(223, 158), 29
LINE (223, 158)-(216, 161), 29
LINE (216, 151)-(219, 148), 29
LINE (217, 150)-(220, 159), 29
LINE (216, 157)-(218, 160), 29
PAINT (166, 151), 114, 29
PAINT (214, 145), 14, 29
PAINT (214, 181), 22, 29
PAINT (239, 135), 4, 29
PAINT (235, 168), 119, 29
PAINT (166, 168), 119, 29
PAINT (178, 168), 27, 29
PAINT (150, 84), 0, 29
PAINT (167, 84), 0, 29
PAINT (207, 84), 0, 29
PAINT (230, 84), 0, 29
PAINT (269, 84), 0, 29
PAINT (291, 84), 0, 29
LINE (214, 159)-(214, 166), 0
PAINT (216, 159), 4, 29
PAINT (221, 156), 4, 29
PAINT (217, 147), 1, 29
LINE (214, 175)-(214, 170), 0
LINE (165, 170)-(126, 173), 2
LINE (111, 183)-(84, 180), 2
LINE (55, 180)-(28, 183), 2
LINE (230, 183)-(248, 181), 2
LINE (253, 166)-(279, 170), 2
PAINT (239, 146), 115, 29
PAINT (214, 163), 114, 29
PAINT (217, 154), 31, 29
PAINT (239, 138), 29, 29
GET (19, 9)-(285, 162), BIG%
RETURN
NXT:
C = 14
C1 = 19
C2 = 43
C3 = 113
LINE (56, 9)-(37, 61), C
LINE (37, 61)-(58, 61), C
LINE (58, 61)-(65, 34), C
LINE (65, 34)-(74, 61), C
LINE (74, 61)-(95, 61), C
LINE (95, 61)-(72, 9), C
LINE (72, 9)-(56, 9), C
LINE (65, 21)-(65, 28), C
LINE (82, 29)-(82, 18), C
LINE (82, 18)-(93, 18), C
LINE (93, 18)-(106, 50), C
LINE (106, 50)-(113, 18), C
LINE (113, 18)-(149, 18), C
LINE (125, 18)-(125, 61), C
LINE (139, 61)-(115, 61), C
LINE (115, 61)-(115, 45), C
LINE (115, 45)-(106, 61), C
LINE (106, 61)-(95, 45), C
LINE (95, 45)-(95, 61), C
LINE (139, 61)-(144, 55), C
LINE (144, 55)-(144, 46), C
LINE (144, 46)-(138, 39), C
LINE (138, 39)-(144, 31), C
LINE (144, 31)-(144, 23), C
LINE (144, 23)-(139, 18), C
LINE (137, 28)-(132, 28), C
LINE (132, 51)-(137, 51), C
LINE (149, 19)-(149, 47), C
LINE (149, 47)-(153, 52), C
LINE (153, 52)-(160, 52), C
LINE (160, 52)-(165, 47), C
LINE (165, 47)-(165, 18), C
LINE (165, 18)-(213, 18), C
LINE (143, 59)-(145, 61), C
LINE (145, 61)-(213, 61), C
LINE (171, 61)-(178, 52), C
LINE (178, 52)-(178, 18), C
LINE (178, 52)-(196, 52), C
LINE (206, 18)-(206, 28), C
LINE (206, 28)-(185, 28), C
LINE (185, 28)-(179, 34), C
LINE (179, 37)-(185, 42), C
LINE (185, 42)-(198, 42), C
LINE (198, 42)-(206, 49), C
LINE (206, 49)-(206, 56), C
LINE (206, 56)-(200, 61), C
LINE (200, 44)-(200, 28), C
LINE (213, 18)-(213, 35), C
LINE (213, 35)-(222, 35), C
LINE (222, 35)-(222, 18), C
LINE (222, 18)-(235, 18), C
LINE (235, 18)-(235, 61), C
LINE (235, 61)-(222, 61), C
LINE (222, 61)-(222, 40), C
LINE (222, 40)-(213, 40), C
LINE (213, 40)-(213, 61), C
LINE (125, 66)-(115, 93), C
LINE (115, 93)-(126, 93), C
LINE (126, 93)-(130, 83), C
LINE (130, 83)-(136, 93), C
LINE (136, 93)-(148, 93), C
LINE (148, 93)-(135, 66), C
LINE (135, 66)-(126, 66), C
LINE (130, 73)-(130, 77), C
LINE (146, 66)-(146, 73), C
LINE (146, 73)-(154, 73), C
LINE (154, 73)-(154, 93), C
LINE (154, 93)-(162, 93), C
LINE (162, 93)-(162, 73), C
LINE (162, 73)-(170, 73), C
LINE (170, 73)-(170, 66), C
LINE (170, 66)-(146, 66), C
LINE (51, 100)-(29, 100), C
LINE (29, 100)-(20, 107), C
LINE (20, 107)-(20, 120), C
LINE (20, 120)-(29, 128), C
LINE (29, 128)-(42, 128), C
LINE (42, 128)-(50, 135), C
LINE (50, 135)-(50, 142), C
LINE (50, 142)-(43, 150), C
LINE (43, 150)-(20, 150), C
LINE (20, 150)-(20, 161), C
LINE (20, 161)-(52, 161), C
LINE (52, 161)-(61, 150), C
LINE (61, 150)-(61, 131), C
LINE (61, 131)-(47, 116), C
LINE (47, 116)-(34, 116), C
LINE (34, 116)-(34, 111), C
LINE (34, 111)-(51, 111), C
LINE (51, 111)-(51, 100), C
LINE (57, 125)-(77, 125), C
LINE (71, 125)-(71, 161), C
LINE (71, 161)-(52, 161), C
LINE (75, 161)-(71, 155), C
LINE (75, 161)-(95, 161), C
LINE (95, 161)-(99, 156), C
LINE (99, 156)-(99, 125), C
LINE (93, 125)-(93, 149), C
LINE (93, 149)-(89, 153), C
LINE (89, 153)-(80, 153), C
LINE (80, 153)-(77, 149), C
LINE (77, 149)-(77, 125), C
LINE (93, 125)-(126, 125), C
LINE (120, 125)-(120, 133), C
LINE (120, 133)-(110, 133), C
LINE (110, 133)-(110, 161), C
LINE (110, 161)-(102, 161), C
LINE (102, 161)-(102, 133), C
LINE (102, 133)-(99, 133), C
LINE (114, 133)-(114, 161), C
LINE (114, 161)-(126, 161), C
LINE (126, 161)-(126, 140), C
LINE (126, 140)-(133, 140), C
LINE (133, 140)-(133, 161), C
LINE (133, 161)-(144, 161), C
LINE (144, 161)-(144, 125), C
LINE (144, 125)-(133, 125), C
LINE (133, 125)-(133, 135), C
LINE (133, 135)-(126, 135), C
LINE (126, 135)-(126, 125), C
LINE (159, 125)-(159, 161), C
LINE (159, 161)-(170, 161), C
LINE (170, 161)-(170, 146), C
LINE (170, 146)-(185, 161), C
LINE (185, 161)-(195, 161), C
LINE (195, 161)-(179, 142), C
LINE (179, 142)-(188, 139), C
LINE (188, 139)-(188, 130), C
LINE (188, 130)-(182, 125), C
LINE (182, 125)-(159, 125), C
LINE (166, 133)-(177, 133), C
LINE (186, 150)-(195, 125), C
LINE (195, 125)-(204, 125), C
LINE (204, 125)-(213, 161), C
LINE (213, 161)-(207, 161), C
LINE (207, 161)-(199, 139), C
LINE (199, 139)-(193, 158), C
LINE (199, 134)-(199, 131), C
LINE (207, 134)-(207, 125), C
LINE (207, 125)-(216, 125), C
LINE (216, 125)-(230, 152), C
LINE (230, 152)-(230, 125), C
LINE (214, 161)-(214, 140), C
LINE (214, 140)-(222, 161), C
LINE (222, 161)-(254, 161), C
LINE (239, 161)-(239, 125), C
LINE (231, 125)-(255, 125), C
LINE (255, 125)-(255, 134), C
LINE (255, 134)-(239, 134), C
LINE (244, 144)-(244, 148), C
LINE (244, 148)-(251, 148), C
LINE (251, 148)-(251, 154), C
LINE (251, 154)-(248, 156), C
LINE (248, 156)-(240, 156), C
LINE (244, 144)-(260, 144), C
LINE (260, 144)-(260, 154), C
LINE (260, 154)-(254, 161), C
LINE (257, 144)-(257, 125), C
LINE (257, 125)-(284, 125), C
LINE (284, 125)-(284, 135), C
LINE (284, 135)-(266, 135), C
LINE (266, 135)-(266, 142), C
LINE (266, 142)-(274, 142), C
LINE (274, 142)-(274, 147), C
LINE (274, 147)-(266, 147), C
LINE (266, 147)-(266, 153), C
LINE (266, 153)-(284, 153), C
LINE (284, 153)-(284, 161), C
LINE (284, 161)-(257, 161), C
LINE (257, 161)-(257, 158), C
PAINT (71, 30), C1, C
PAINT (90, 30), C1, C
PAINT (128, 30), C1, C
PAINT (146, 30), C1, C
PAINT (182, 26), C1, C
PAINT (182, 46), C1, C
PAINT (208, 46), C1, C
PAINT (127, 70), C2, C
PAINT (159, 70), C2, C
PAINT (50, 130), C3, C
PAINT (65, 130), C3, C
PAINT (73, 130), C3, C
PAINT (104, 130), C3, C
PAINT (122, 130), C3, C
PAINT (163, 130), C3, C
PAINT (196, 130), C3, C
PAINT (212, 130), C3, C
PAINT (245, 130), C3, C
PAINT (245, 158), C3, C
PAINT (264, 158), C3, C
DO
AA$ = INKEY$
LOOP UNTIL AA$ <> ""
PUT (19, 9), BIG%, PSET
STARTOPTIONS:
CWORDS = 43
LINE (132, 52)-(112, 52), CWORDS
LINE (112, 52)-(106, 59), CWORDS
LINE (106, 59)-(106, 64), CWORDS
LINE (106, 64)-(112, 69), CWORDS
LINE (112, 69)-(124, 69), CWORDS
LINE (124, 69)-(132, 76), CWORDS
LINE (132, 76)-(132, 86), CWORDS
LINE (132, 86)-(125, 93), CWORDS
LINE (125, 93)-(107, 93), CWORDS
LINE (151, 93)-(151, 52), CWORDS
LINE (166, 52)-(136, 52), CWORDS
LINE (185, 52)-(171, 93), CWORDS
LINE (200, 93)-(185, 52), CWORDS
LINE (193, 73)-(178, 73), CWORDS
LINE (204, 93)-(204, 52), CWORDS
LINE (204, 52)-(225, 52), CWORDS
LINE (225, 52)-(232, 58), CWORDS
LINE (232, 58)-(232, 67), CWORDS
LINE (232, 67)-(226, 73), CWORDS
LINE (226, 73)-(204, 73), CWORDS
LINE (217, 73)-(234, 93), CWORDS
LINE (252, 93)-(252, 52), CWORDS
LINE (268, 52)-(238, 52), CWORDS
LINE (116, 97)-(107, 97), CWORDS
LINE (107, 97)-(102, 104), CWORDS
LINE (102, 104)-(102, 128), CWORDS
LINE (102, 128)-(107, 138), CWORDS
LINE (107, 138)-(117, 138), CWORDS
LINE (117, 138)-(122, 129), CWORDS
LINE (122, 129)-(122, 104), CWORDS
LINE (122, 104)-(116, 97), CWORDS
LINE (126, 97)-(126, 138), CWORDS
LINE (126, 120)-(141, 120), CWORDS
LINE (141, 120)-(146, 113), CWORDS
LINE (146, 113)-(146, 104), CWORDS
LINE (146, 104)-(140, 97), CWORDS
LINE (140, 97)-(127, 97), CWORDS
LINE (150, 97)-(170, 97), CWORDS
LINE (160, 97)-(160, 138), CWORDS
LINE (174, 138)-(194, 138), CWORDS
LINE (184, 138)-(184, 97), CWORDS
LINE (174, 97)-(194, 97), CWORDS
LINE (116 + 96, 97)-(107 + 96, 97), CWORDS
LINE (107 + 96, 97)-(102 + 96, 104), CWORDS
LINE (102 + 96, 104)-(102 + 96, 128), CWORDS
LINE (102 + 96, 128)-(107 + 96, 138), CWORDS
LINE (107 + 96, 138)-(117 + 96, 138), CWORDS
LINE (117 + 96, 138)-(122 + 96, 129), CWORDS
LINE (122 + 96, 129)-(122 + 96, 104), CWORDS
LINE (122 + 96, 104)-(116 + 96, 97), CWORDS
LINE (222, 97)-(222, 138), CWORDS
LINE (222, 97)-(242, 138), CWORDS
LINE (242, 138)-(242, 97), CWORDS
LINE (268, 97)-(253, 97), CWORDS
LINE (253, 97)-(247, 105), CWORDS
LINE (247, 105)-(247, 111), CWORDS
LINE (247, 111)-(253, 118), CWORDS
LINE (253, 118)-(261, 118), CWORDS
LINE (261, 118)-(268, 124), CWORDS
LINE (268, 124)-(268, 133), CWORDS
LINE (268, 133)-(261, 138), CWORDS
LINE (261, 138)-(246, 138), CWORDS
GET (50, 52)-(99, 140), PISTOL%
LINE (61, 59)-(67, 62), 8, BF
LINE (97, 55)-(58, 55), 7
LINE (58, 55)-(52, 69), 7
LINE (57, 57)-(55, 57), 7
LINE (55, 57)-(52, 55), 7
LINE (52, 55)-(51, 58), 7
LINE (51, 58)-(52, 62), 7
LINE (53, 63)-(89, 63), 7
LINE (89, 63)-(89, 67), 7
LINE (97, 65)-(89, 65), 7
LINE (97, 65)-(97, 55), 7
LINE (98, 56)-(98, 64), 7
LINE (97, 58)-(57, 58), 7
LINE (60, 58)-(60, 63), 7
LINE (62, 63)-(62, 58), 7
LINE (64, 58)-(64, 63), 7
LINE (66, 63)-(66, 58), 7
LINE (68, 58)-(68, 63), 7
LINE (90, 62)-(96, 61), 7
LINE (89, 67)-(78, 67), 7
LINE (78, 67)-(76, 69), 7
LINE (76, 69)-(76, 74), 7
LINE (76, 74)-(74, 76), 7
LINE (74, 76)-(69, 76), 7
LINE (69, 76)-(67, 78), 7
LINE (67, 78)-(65, 92), 7
LINE (65, 92)-(52, 91), 7
LINE (52, 91)-(56, 70), 7
LINE (56, 70)-(53, 70), 7
LINE (55, 68)-(57, 68), 7
LINE (58, 67)-(58, 66), 7
LINE (58, 66)-(56, 66), 7
LINE (56, 66)-(56, 67), 7
LINE (60, 66)-(68, 66), 7
LINE (74, 69)-(74, 73), 7
LINE (73, 74)-(69, 74), 7
LINE (69, 74)-(70, 69), 7
LINE (70, 69)-(74, 69), 7
LINE (67, 68)-(63, 90), 7
LINE (63, 90)-(55, 89), 7
LINE (55, 89)-(58, 70), 7
LINE (58, 70)-(60, 68), 7
LINE (60, 68)-(67, 68), 7
LINE (88, 54)-(93, 54), 26
LINE (92, 53)-(89, 53), 27
PAINT (89, 56), 26, 7
PAINT (89, 60), 23, 7
PAINT (93, 64), 26, 7
PAINT (81, 65), 26, 7
PAINT (62, 71), 24, 7
PAINT (66, 80), 26, 7
PAINT (53, 60), 25, 7
PAINT (58, 61), 23, 7
LINE (71, 65)-(75, 67), 27, BF
PSET (57, 67), 25
NO = 1
INKY: AA$ = INKEY$: IF AA$ = "" THEN GOTO INKY
IF NO = 1 AND AA$ = CHR$(13) THEN
LINE (99, 56)-(99, 64), 40
LINE (99, 64)-(106, 69), 40
LINE (106, 69)-(110, 63), 40
LINE (110, 63)-(107, 52), 40
LINE (107, 52)-(102, 49), 40
LINE (102, 49)-(99, 56), 40
LINE (100, 56)-(104, 57), 40
LINE (104, 57)-(105, 62), 40
LINE (105, 62)-(100, 65), 40
PAINT (103, 51), 44, 40
PAINT (100, 59), 42, 40
PLAY "MFT255L64O0CDCECFCCDCCFCECDC"
FOR I = 1 TO SPD * 5
NEXT
PUT (19, 9), BIG%, PSET: GOTO 1
END IF
IF NO = 2 AND AA$ = CHR$(13) THEN
LINE (99, 56 + 46)-(99, 64 + 46), 40
LINE (99, 64 + 46)-(106, 69 + 46), 40
LINE (106, 69 + 46)-(110, 63 + 46), 40
LINE (110, 63 + 46)-(107, 52 + 46), 40
LINE (107, 52 + 46)-(102, 49 + 46), 40
LINE (102, 49 + 46)-(99, 56 + 46), 40
LINE (100, 56 + 46)-(104, 57 + 46), 40
LINE (104, 57 + 46)-(105, 62 + 46), 40
LINE (105, 62 + 46)-(100, 65 + 46), 40
PAINT (103, 51 + 46), 44, 40
PAINT (100, 59 + 46), 42, 40
PLAY "MFT255L64O0CDCECFCCDCCFCECDC"
FOR I = 1 TO SPD * 5
NEXT
PUT (19, 9), BIG%, PSET: GOTO OPTIONS
END IF
IF LEN(AA$) <> 2 THEN GOTO INKY
IF LEN(AA$) = 2 THEN FK% = ASC(RIGHT$(AA$, 1))
IF FK% = 80 AND NO = 1 THEN
PUT (50, 52), PISTOL%, PSET
LINE (61, 59 + 46)-(67, 62 + 46), 8, BF
LINE (97, 55 + 46)-(58, 55 + 46), 7
LINE (58, 55 + 46)-(52, 69 + 46), 7
LINE (57, 57 + 46)-(55, 57 + 46), 7
LINE (55, 57 + 46)-(52, 55 + 46), 7
LINE (52, 55 + 46)-(51, 58 + 46), 7
LINE (51, 58 + 46)-(52, 62 + 46), 7
LINE (53, 63 + 46)-(89, 63 + 46), 7
LINE (89, 63 + 46)-(89, 67 + 46), 7
LINE (97, 65 + 46)-(89, 65 + 46), 7
LINE (97, 65 + 46)-(97, 55 + 46), 7
LINE (98, 56 + 46)-(98, 64 + 46), 7
LINE (97, 58 + 46)-(57, 58 + 46), 7
LINE (60, 58 + 46)-(60, 63 + 46), 7
LINE (62, 63 + 46)-(62, 58 + 46), 7
LINE (64, 58 + 46)-(64, 63 + 46), 7
LINE (66, 63 + 46)-(66, 58 + 46), 7
LINE (68, 58 + 46)-(68, 63 + 46), 7
LINE (90, 62 + 46)-(96, 61 + 46), 7
LINE (89, 67 + 46)-(78, 67 + 46), 7
LINE (78, 67 + 46)-(76, 69 + 46), 7
LINE (76, 69 + 46)-(76, 74 + 46), 7
LINE (76, 74 + 46)-(74, 76 + 46), 7
LINE (74, 76 + 46)-(69, 76 + 46), 7
LINE (69, 76 + 46)-(67, 78 + 46), 7
LINE (67, 78 + 46)-(65, 92 + 46), 7
LINE (65, 92 + 46)-(52, 91 + 46), 7
LINE (52, 91 + 46)-(56, 70 + 46), 7
LINE (56, 70 + 46)-(53, 70 + 46), 7
LINE (55, 68 + 46)-(57, 68 + 46), 7
LINE (58, 67 + 46)-(58, 66 + 46), 7
LINE (58, 66 + 46)-(56, 66 + 46), 7
LINE (56, 66 + 46)-(56, 67 + 46), 7
LINE (60, 66 + 46)-(68, 66 + 46), 7
LINE (74, 69 + 46)-(74, 73 + 46), 7
LINE (73, 74 + 46)-(69, 74 + 46), 7
LINE (69, 74 + 46)-(70, 69 + 46), 7
LINE (70, 69 + 46)-(74, 69 + 46), 7
LINE (67, 68 + 46)-(63, 90 + 46), 7
LINE (63, 90 + 46)-(55, 89 + 46), 7
LINE (55, 89 + 46)-(58, 70 + 46), 7
LINE (58, 70 + 46)-(60, 68 + 46), 7
LINE (60, 68 + 46)-(67, 68 + 46), 7
LINE (88, 54 + 46)-(93, 54 + 46), 26
LINE (92, 53 + 46)-(89, 53 + 46), 27
PAINT (89, 56 + 46), 26, 7
PAINT (89, 60 + 46), 23, 7
PAINT (93, 64 + 46), 26, 7
PAINT (81, 65 + 46), 26, 7
PAINT (62, 71 + 46), 24, 7
PAINT (66, 80 + 46), 26, 7
PAINT (53, 60 + 46), 25, 7
PAINT (58, 61 + 46), 23, 7
LINE (71, 65 + 46)-(75, 67 + 46), 27, BF
PSET (57, 67 + 46), 25
NO = 2
END IF
IF FK% = 72 AND NO = 2 THEN
PUT (50, 52), PISTOL%, PSET
LINE (61, 59)-(67, 62), 8, BF
LINE (97, 55)-(58, 55), 7
LINE (58, 55)-(52, 69), 7
LINE (57, 57)-(55, 57), 7
LINE (55, 57)-(52, 55), 7
LINE (52, 55)-(51, 58), 7
LINE (51, 58)-(52, 62), 7
LINE (53, 63)-(89, 63), 7
LINE (89, 63)-(89, 67), 7
LINE (97, 65)-(89, 65), 7
LINE (97, 65)-(97, 55), 7
LINE (98, 56)-(98, 64), 7
LINE (97, 58)-(57, 58), 7
LINE (60, 58)-(60, 63), 7
LINE (62, 63)-(62, 58), 7
LINE (64, 58)-(64, 63), 7
LINE (66, 63)-(66, 58), 7
LINE (68, 58)-(68, 63), 7
LINE (90, 62)-(96, 61), 7
LINE (89, 67)-(78, 67), 7
LINE (78, 67)-(76, 69), 7
LINE (76, 69)-(76, 74), 7
LINE (76, 74)-(74, 76), 7
LINE (74, 76)-(69, 76), 7
LINE (69, 76)-(67, 78), 7
LINE (67, 78)-(65, 92), 7
LINE (65, 92)-(52, 91), 7
LINE (52, 91)-(56, 70), 7
LINE (56, 70)-(53, 70), 7
LINE (55, 68)-(57, 68), 7
LINE (58, 67)-(58, 66), 7
LINE (58, 66)-(56, 66), 7
LINE (56, 66)-(56, 67), 7
LINE (60, 66)-(68, 66), 7
LINE (74, 69)-(74, 73), 7
LINE (73, 74)-(69, 74), 7
LINE (69, 74)-(70, 69), 7
LINE (70, 69)-(74, 69), 7
LINE (67, 68)-(63, 90), 7
LINE (63, 90)-(55, 89), 7
LINE (55, 89)-(58, 70), 7
LINE (58, 70)-(60, 68), 7
LINE (60, 68)-(67, 68), 7
LINE (88, 54)-(93, 54), 26
LINE (92, 53)-(89, 53), 27
PAINT (89, 56), 26, 7
PAINT (89, 60), 23, 7
PAINT (93, 64), 26, 7
PAINT (81, 65), 26, 7
PAINT (62, 71), 24, 7
PAINT (66, 80), 26, 7
PAINT (53, 60), 25, 7
PAINT (58, 61), 23, 7
LINE (71, 65)-(75, 67), 27, BF
PSET (57, 67), 25
NO = 1
END IF
GOTO INKY
OPTIONS:
LINE (50, 30)-(260, 132), 15, B: LINE (51, 31)-(259, 131), 0, BF
LOCATE 6, 11: PRINT "Do you want to see"
LOCATE 8, 11: PRINT "the keyboard keys ?"
LOCATE 12, 12: PRINT " Yes ": LOCATE 15, 12: PRINT " No  "
LOCATE 12, 24: PRINT " <-- "
KEYB = 0
INI2: AA$ = INKEY$: IF AA$ = "" THEN GOTO INI2
IF AA$ = CHR$(13) THEN GOTO 6
IF LEN(AA$) = 2 THEN FK% = ASC(RIGHT$(AA$, 1)) ELSE GOTO INI2
IF FK% <> 72 AND FK% <> 80 THEN GOTO INI2
IF FK% = 72 AND KEYB = 1 THEN
KEYB = 0: LINE (131, 71)-(249, 131), 0, BF:  LOCATE 12, 24: PRINT " <-- "
END IF
IF FK% = 80 AND KEYB = 0 THEN
KEYB = 1: LINE (131, 71)-(249, 131), 0, BF: LOCATE 15, 24: PRINT " <-- "
END IF
GOTO INI2
6 IF KEYB = 0 THEN KeyboardKeys: SCREEN 13: CLS : GOSUB DRW
LINE (50, 30)-(260, 132), 15, B: LINE (51, 31)-(259, 131), 0, BF
LOCATE 6, 12: PRINT "What difficulty do"
LOCATE 8, 11: PRINT "you wish to play at ?"
LOCATE 12, 12: PRINT " Easy ": LOCATE 15, 12: PRINT " Hard  "
LOCATE 12, 24: PRINT " <-- "
SPD = 0
INI1: AA$ = INKEY$: IF AA$ = "" THEN GOTO INI1
IF AA$ = CHR$(13) THEN GOTO 7
IF LEN(AA$) = 2 THEN FK% = ASC(RIGHT$(AA$, 1)) ELSE GOTO INI1
IF FK% <> 72 AND FK% <> 80 THEN GOTO INI1
IF FK% = 72 AND SPD = 1 THEN
SPD = 0: LINE (131, 71)-(249, 131), 0, BF: LOCATE 12, 24: PRINT " <-- "
END IF
IF FK% = 80 AND SPD = 0 THEN
SPD = 1: LINE (131, 71)-(249, 131), 0, BF: LOCATE 15, 24: PRINT " <-- "
END IF
GOTO INI1
7 LINE (50, 30)-(260, 132), 15, B: LINE (51, 31)-(259, 131), 0, BF
LOCATE 6, 11: PRINT "Do you wish to see"
LOCATE 8, 11: PRINT "the Hall of Fame ?"
LOCATE 12, 12: PRINT " Yes ": LOCATE 15, 12: PRINT " No  "
LOCATE 12, 24: PRINT " <-- "
HALL = 0
INI4: AA$ = INKEY$: IF AA$ = "" THEN GOTO INI4
IF HALL = 0 AND AA$ = CHR$(13) THEN PUT (19, 9), BIG%, PSET: GOTO FAME
IF HALL = 1 AND AA$ = CHR$(13) THEN PUT (19, 9), BIG%, PSET: GOTO STARTOPTIONS
IF LEN(AA$) = 2 THEN FK% = ASC(RIGHT$(AA$, 1)) ELSE GOTO INI4
IF FK% <> 72 AND FK% <> 80 THEN GOTO INI4
IF FK% = 72 AND HALL = 1 THEN
HALL = 0: LINE (131, 71)-(249, 131), 0, BF: LOCATE 12, 24: PRINT " <-- "
END IF
IF FK% = 80 AND HALL = 0 THEN
HALL = 1: LINE (131, 71)-(249, 131), 0, BF: LOCATE 15, 24: PRINT " <-- "
END IF
GOTO INI4
FAME:
SCREEN 13
CLS
NAME$ = INI1$ + ". " + INI2$ + ". " + INI3$ + ". "
OPEN "FAME" FOR INPUT AS 1
INPUT #1, SCORE1%, SCORE2%, SCORE3%, SCORE4%, SCORE5%
INPUT #1, SCORE6%, SCORE7%, SCORE8%, SCORE9%, SCORE10%
INPUT #1, NAME1$, NAME2$, NAME3$, NAME4$, NAME5$
INPUT #1, NAME6$, NAME7$, NAME8$, NAME9$, NAME10$
INPUT #1, HITS1%, HITS2%, HITS3%, HITS4%, HITS5%
INPUT #1, HITS6%, HITS7%, HITS8%, HITS9%, HITS10%
CLOSE #1
CLS
SCREEN 13
C2 = 147
C1 = 33
DO
AA$ = INKEY$
COLOR 112
LOCATE 3, 10: PRINT "Most murderous men"
COLOR 43
LOCATE 5, 12: PRINT "Hall of Fame"
COLOR 15
LOCATE 8, 4: PRINT "No.   Initials"; SPACE$(8); "Score    Kills"
COLOR C1
LOCATE 10, 4: PRINT "#1.   "; NAME1$
LOCATE 10, 25: PRINT SCORE1%; "pts.": LOCATE 10, 35: PRINT HITS1%
COLOR C2
IF CLR = 2 THEN COLOR C1
LOCATE 11, 4: PRINT "#2.   "; NAME2$
LOCATE 11, 25: PRINT SCORE2%; "pts.": LOCATE 11, 35: PRINT HITS2%
COLOR C2
IF CLR = 3 THEN COLOR C1
LOCATE 12, 4: PRINT "#3.   "; NAME3$
LOCATE 12, 25: PRINT SCORE3%; "pts.": LOCATE 12, 35: PRINT HITS3%
COLOR C2
IF CLR = 4 THEN COLOR C1
LOCATE 13, 4: PRINT "#4.   "; NAME4$
LOCATE 13, 25: PRINT SCORE4%; "pts.": LOCATE 13, 35: PRINT HITS4%
COLOR C2
IF CLR = 5 THEN COLOR C1
LOCATE 14, 4: PRINT "#5.   "; NAME5$
LOCATE 14, 25: PRINT SCORE5%; "pts.": LOCATE 14, 35: PRINT HITS5%
COLOR C2
IF CLR = 6 THEN COLOR C1
LOCATE 15, 4: PRINT "#6.   "; NAME6$
LOCATE 15, 25: PRINT SCORE6%; "pts.": LOCATE 15, 35: PRINT HITS6%
COLOR C2
IF CLR = 7 THEN COLOR C1
LOCATE 16, 4: PRINT "#7.   "; NAME7$
LOCATE 16, 25: PRINT SCORE7%; "pts.": LOCATE 16, 35: PRINT HITS7%
COLOR C2
IF CLR = 8 THEN COLOR C1
LOCATE 17, 4: PRINT "#8.   "; NAME8$
LOCATE 17, 25: PRINT SCORE8%; "pts.": LOCATE 17, 35: PRINT HITS8%
COLOR C2
IF CLR = 9 THEN COLOR C1
LOCATE 18, 4: PRINT "#9.   "; NAME9$
LOCATE 18, 25: PRINT SCORE9%; "pts.": LOCATE 18, 35: PRINT HITS9%
COLOR C2
IF CLR = 10 THEN COLOR C1
LOCATE 19, 4: PRINT "#10.  "; NAME10$
LOCATE 19, 25: PRINT SCORE10%; "pts.": LOCATE 19, 35: PRINT HITS10%
COLOR C2
C1 = C1 + 1
C2 = C2 + 1
IF C1 >= 60 THEN C1 = 33
IF C2 >= 160 THEN C2 = 110
LOOP UNTIL AA$ <> ""
SCREEN 13: CLS : GOSUB DRW
COLOR 15
GOTO STARTOPTIONS
1 PI = 3.141592
NAMES = 0
TYPE ROWS
ROW AS INTEGER
END TYPE
LINE (50, 30)-(260, 132), 15, B: LINE (51, 31)-(259, 131), 0, BF
LOCATE 6, 12: PRINT "Do you wish to keep"
LOCATE 8, 11: PRINT "initials for records ?"
LOCATE 12, 12: PRINT " Yes ": LOCATE 15, 12: PRINT " No  "
LOCATE 12, 24: PRINT " <-- "
INI: AA$ = INKEY$: IF AA$ = "" THEN GOTO INI
IF AA$ = CHR$(13) THEN GOTO 5
IF LEN(AA$) = 2 THEN FK% = ASC(RIGHT$(AA$, 1)) ELSE GOTO INI
IF FK% <> 72 AND FK% <> 80 THEN GOTO INI
IF FK% = 72 AND INI = 1 THEN
INI = 0: LINE (131, 71)-(249, 131), 0, BF:  LOCATE 12, 24: PRINT " <-- "
END IF
IF FK% = 80 AND INI = 0 THEN
INI = 1: LINE (131, 71)-(249, 131), 0, BF:  LOCATE 15, 24: PRINT " <-- "
END IF
GOTO INI
5 IF INI = 0 THEN Initials
CLS
IF SPD = 0 THEN SPD = 280
IF SPD = 1 THEN SPD = 170
'Easy 386 - SPD = 200
'Hard 386 - SPD = 160
'Easy 486 - SPD = 440
'Hard 486 - SPD = 260
SCREEN 0
WIDTH 80
SCORE = 0
COLOR 15
Center 2, "AMBUSH AT SOUTH RANGE"
Center 6, "You are a champion snot rocketer who has gone on a rampage at Sout"
LOCATE 6, 74: PRINT "h"
Center 8, "Range. You have brought an Uzi and Bombs. To aim, move the cursors"
Center 10, "keys on the far right side of your keyboard. To shoot, hit the"
Center 12, "space bar. You must hit the brats right between the eyes. Good lu"
LOCATE 12, 73: PRINT "ck"
Center 14, "Mucus Man!"
DO
AA$ = INKEY$
LOOP UNTIL AA$ <> ""
SCREEN 13
NAMES = 500
LOCATE 10, 12: PRINT "Please wait while"
LOCATE 12, 12: PRINT "stage is loading"
CHAIN "level1.mk!"

SUB Center (ROW, TEXT$)
    SHARED KEYB
    IF KEYB <> 3 THEN
    LOCATE ROW, 41 - LEN(TEXT$) / 2
    PRINT TEXT$;
    END IF
    IF KEYB = 3 THEN
    LOCATE ROW, 18 - LEN(TEXT$) / 2
    PRINT TEXT$;
    END IF
END SUB

SUB Initials
SHARED INI1$, INI2$, INI3$, CHARACTER
LINE (50, 30)-(260, 132), 15, B: LINE (51, 31)-(259, 131), 0, BF
LOCATE 6, 10: PRINT "Type in your initials."
LOCATE 8, 12: PRINT "Press <- to erase"
P = 14
COLOR 14: LOCATE 12, 14: PRINT "? . ? . ? ."
COLOR 15: LOCATE 12, P: PRINT "?"
INITIAL: AA$ = INKEY$: IF AA$ = "" THEN GOTO INITIAL
AA$ = UCASE$(AA$)
IF LEN(AA$) <> 1 THEN GOTO INITIAL
IF P <> 22 AND AA$ = CHR$(13) THEN GOTO INITIAL
IF P = 22 AND AA$ = CHR$(8) THEN
COLOR 14: LOCATE 12, P: PRINT "?": P = P - 4: COLOR 15
LOCATE 12, P: PRINT "?": GOTO INITIAL
END IF
IF P = 18 AND AA$ = CHR$(8) THEN
COLOR 14: LOCATE 12, P: PRINT "?": P = P - 4: COLOR 15
LOCATE 12, P: PRINT "?": GOTO INITIAL
END IF
IF AA$ = CHR$(8) THEN GOTO INITIAL
IF P = 22 AND AA$ = CHR$(13) THEN GOTO ENDSUB
IF P = 14 THEN INI1$ = AA$
IF P = 18 THEN INI2$ = AA$
IF P = 22 THEN INI3$ = AA$
COLOR 15: LOCATE 12, P: PRINT AA$
P = P + 4
IF P <> 26 THEN COLOR 15: LOCATE 12, P: PRINT "?"
IF P = 26 THEN P = 22
GOTO INITIAL
ENDSUB:
IF INI1$ = "G" AND INI2$ = "R" AND INI3$ = "M" THEN CHARACTER = 1
IF INI1$ = "L" AND INI2$ = "A" AND INI3$ = "O" THEN CHARACTER = 2
IF INI1$ = "B" AND INI2$ = "O" AND INI3$ = "O" THEN CHARACTER = 3
IF INI1$ = "L" AND INI2$ = "A" AND INI3$ = "K" THEN CHARACTER = 5
IF INI1$ = "S" AND INI2$ = "K" AND INI3$ = "E" THEN CHARACTER = 6
IF INI1$ = "S" AND INI2$ = "U" AND INI3$ = "B" THEN CHARACTER = 6
IF INI1$ = "R" AND INI2$ = "E" AND INI3$ = "P" THEN CHARACTER = 6
IF INI1$ = "S" AND INI2$ = "C" AND INI3$ = "O" THEN CHARACTER = 6
IF INI1$ = "D" AND INI2$ = "O" AND INI3$ = "G" THEN CHARACTER = 7
IF INI1$ = "L" AND INI2$ = " " AND INI3$ = "M" THEN CHARACTER = 8
IF INI1$ = "J" AND INI2$ = "A" AND INI3$ = "H" THEN CHARACTER = 9
IF INI1$ = "E" AND INI2$ = "G" AND INI3$ = "G" THEN CHARACTER = 10
IF INI1$ = "S" AND INI2$ = "A" AND INI3$ = "N" THEN CHARACTER = 11
IF INI1$ = "J" AND INI2$ = "T" AND INI3$ = "H" THEN CHARACTER = 14
IF INI1$ = "M" AND INI2$ = " " AND INI3$ = "K" THEN NAMES = 500
IF INI1$ = "M" AND INI2$ = "R" AND INI3$ = "C" THEN CHARACTER = 13
IF INI1$ = "S" AND INI2$ = "L" AND INI3$ = "M" THEN CHARACTER = 4
IF CHARACTER > 0 THEN PLAY "T255O4L64CDEFGAAAA"
IF NAMES = 500 THEN PLAY "T255O4L64CDEFEGAAA"
END SUB

SUB KeyboardKeys
SHARED KEYB
SCREEN 7
LOCATE 3, 12: PRINT "Keyboard Keys"
A = 45: B = 45
FOR I = 1 TO 46
LINE (A, B)-(A + 10, B + 10), 15, BF
A = A + 15
IF A >= 230 AND B = 45 THEN B = B + 15: A = 50
IF A >= 220 AND B = 60 THEN B = B + 15: A = 55
IF A >= 210 AND B = 75 THEN B = B + 15: A = 60
IF A >= 210 AND B = 90 THEN B = B + 15: A = 60
NEXT
A = 10: B = 45
FOR I = 1 TO 10
LINE (A, B)-(A + 10, B + 10), 15, BF
A = A + 15
IF A = 40 THEN B = B + 15: A = 10
NEXT
A = 260: B = 60
FOR I = 1 TO 9
LINE (A, B)-(A + 10, B + 10), 14, BF
A = A + 15
IF A >= 305 THEN B = B + 15: A = 260
NEXT
LINE (275, 75)-(285, 85), 15, BF: LINE (185, 60)-(195, 70), 14, BF
LOCATE 9, 24: PRINT "P": LINE (45, 45)-(55, 55), 14, BF
LOCATE 7, 6: PRINT "Esc": LINE (10, 45)-(20, 55), 14, BF
LOCATE 7, 2: PRINT "F1": LINE (70, 75)-(80, 85), 14, BF
LOCATE 11, 10: PRINT "S": LINE (90, 90)-(100, 100), 14, BF
LOCATE 13, 12: PRINT "C": LINE (120, 90)-(130, 100), 14, BF
LOCATE 13, 16: PRINT "B": LINE (85, 105)-(185, 115), 14, BF
LOCATE 15, 13: PRINT "Space Bar": LOCATE 9, 37: PRINT "/"
LOCATE 9, 35: PRINT "I": LOCATE 9, 33: PRINT "\": LOCATE 11, 33: PRINT "-"
LOCATE 11, 37: PRINT "-": LOCATE 13, 37: PRINT "\": LOCATE 13, 35: PRINT "I"
LOCATE 13, 33: PRINT "/"
KEYB = 3
Center 17, "Cursor keys - move aim"
Center 18, "Space - shoots weapon"
Center 19, "F1 - subscreen"
Center 20, "Esc - quit or leave subscreen"
Center 21, "S - Switch weapons"
Center 22, "C - Charge uzi"
Center 23, "B - Drop a bomb"
Center 24, "P - Pause"
KEYB = 0
DO
AA$ = INKEY$
LOOP UNTIL AA$ <> ""
END SUB

SUB Logo
CLS
SCREEN 13
CC = 31
C = 31
I = 15
s = 32
DIM NEWATTR AS LONG
FOR R = 1 TO 75
CIRCLE (157, 100), R, s, , , -.5
s = s + 1
NEXT
FOR I = 16 TO 31
LINE (1, 1)-(319, 199), I, B: LINE (60, 50)-(70, 50), I
LINE (60, 50)-(60, 150), I: LINE (60, 150)-(70, 150), I
LINE (70, 150)-(70, 60), I: LINE (70, 50)-(120, 100), I
LINE (70, 60)-(120, 110), I: LINE (120, 110)-(130, 110), I
LINE (120, 100)-(130, 100), I: LINE (130, 100)-(180, 50), I
LINE (130, 110)-(180, 60), I: LINE (180, 50)-(190, 50), I
LINE (180, 60)-(180, 150), I: LINE (180, 150)-(190, 150), I
LINE (190, 50)-(190, 95), I: LINE (190, 150)-(190, 105), I
LINE (190, 105)-(235, 150), I: LINE (190, 95)-(235, 50), I
LINE (235, 150)-(245, 150), I: LINE (235, 50)-(245, 50), I
LINE (245, 150)-(195, 100), I: LINE (245, 50)-(195, 100), I
PAINT (65, 55), CC, I
CC = CC - .9
LOCATE 2, 5
COLOR I: PRINT " Molnar \ Kucalaba Productions"
LOCATE 23, 12
COLOR I: PRINT "Proudly Present"
NEXT
AGAIN:
NEWATTR = 0
FOR NEWATTR = 0 TO 63
PALETTE 0, NEWATTR
FOR W = 1 TO 50
AA$ = INKEY$
IF AA$ <> "" THEN GOTO NXTA
NEXT
NEXT
FOR NEWATTR = 63 TO 0 STEP -1
PALETTE 0, NEWATTR
FOR W = 1 TO 50
AA$ = INKEY$
IF AA$ <> "" THEN GOTO NXTA
NEXT
NEXT
GOTO AGAIN
NXTA:
FOR NEWATTR = 0 TO 63
PALETTE 0, NEWATTR
FOR W = 1 TO 50
AA$ = INKEY$
NEXT
NEXT
FOR NEWATTR = 63 TO 0 STEP -1
PALETTE 0, NEWATTR
FOR W = 1 TO 50
NEXT
NEXT
FOR I = 16 TO 31
LINE (1, 1)-(319, 199), C, B: LINE (60, 50)-(70, 50), C
LINE (60, 50)-(60, 150), C: LINE (60, 150)-(70, 150), C
LINE (70, 150)-(70, 60), C: LINE (70, 50)-(120, 100), C
LINE (70, 60)-(120, 110), C: LINE (120, 110)-(130, 110), C
LINE (120, 100)-(130, 100), C: LINE (130, 100)-(180, 50), C
LINE (130, 110)-(180, 60), C: LINE (180, 50)-(190, 50), C
LINE (180, 60)-(180, 150), C: LINE (180, 150)-(190, 150), C
LINE (190, 50)-(190, 95), C: LINE (190, 150)-(190, 105), C
LINE (190, 105)-(235, 150), C: LINE (190, 95)-(235, 50), C
LINE (235, 150)-(245, 150), C: LINE (235, 50)-(245, 50), C
LINE (245, 150)-(195, 100), C: LINE (245, 50)-(195, 100), C
LOCATE 2, 5
COLOR C: PRINT " Molnar \ Kucalaba Productions"
LOCATE 23, 12
COLOR C: PRINT "Proudly Present"
C = C - 1
PLAY "MFT255P16"
NEXT
DO
AA$ = INKEY$
LOOP UNTIL AA$ <> ""
COLOR 15
END SUB

